Simples [PortScanner]

Publicado por breek (última atualização em 02/03/2012)

[ Hits: 4.161 ]

Download SimplePortScanner.pl




É um script simples. Criado para iniciantes.

Não é nenhum [nmap] mas é bem legal e funcional.

Esta bem comentado. É claro que esta em [inglês], mas é para não perder o costume.

Usei o [Google Tradutor], caso haja alguma palavra errada é culpa é dele.

  



Esconder código-fonte

#!/usr/bin/perl
#--------------------------------------------------------------------------------------------------------
#
# @Author: breek
# @Code: SimplePortScanner.pl
# @Version: 0.1.0
# @Date: 22/02/2012
#
#--------------------------------------------------------------------------------------------------------

#===============================================================#
# É um script simples. Criado para iniciantes.
# Não é nenhum [nmap] mas é bem legal e funcional. 
#
# Esta bem comentado. É claro que esta em [inglês], mas
# é para não perder o costume. Usei o [Google Tradutor],
# caso haja alguma palavra errada é culpa é dele.
#
# Criado para ser modificado. Cada modificação mexa na versão.
# NÃO ALTERE MEU NOME!!
# NÃO ALTERE O NOME DO SCRIPT!!
#===============================================================#

use strict;
use warnings;
use IO::Socket;

#--------------------------------------------------------------------------------------------------------
#__BEGIN_MAIN__
#
# Name: Main
#
# Purpose: Initializes the script.
# 
# Input: $Var_IP
#           $Var_BeginPort
#           $Var_EndPort
#
# Output: $Var_IP
#             $Var_Scanning
#

#-----------------------------
#Global variables
#
my $Var_IP;                  # Recebe o [Endereço IP]    - USUARIO
my $Var_BeginPort;       # Recebe a [Porta inicial]     - USUARIO
my $Var_EndPort;          # Recebe a [Porta final]       - USUARIO
my $Var_Scanning;        # Escanea as portas            - SCRIPT
my $Var_FindOpenPort;  # Recebe as portas abertas - SCRIPT
#
#
#-----------------------------

system( "cls" );

# Recebe o [Endereço IP] #
print "Enter the IP address: ";
$Var_IP = <>;
chomp $Var_IP;

# Recebe a [Porta inicial] #
print "Enter the starting port: ";
$Var_BeginPort = <>;
chomp $Var_BeginPort;

# Recebe a [Porta final] #
print "Enter the ending port: ";
$Var_EndPort = <>;
chomp $Var_EndPort;

# Iniciando escaneamento #
print "\n\nScanning IP [ $Var_IP ]. \n\n";

# Escaneando #
for( $Var_Scanning = $Var_BeginPort; $Var_Scanning <= $Var_EndPort; $Var_Scanning++ )
{
   
   $Var_FindOpenPort = IO::Socket::INET->new(
                                                                           PeerAddr => $Var_IP,              # Endereço IP
                                                                           PeerPort => "$Var_Scanning",  # Numero da porta
                                                                           Proto => "TCP",                       # Protocolo
                                                                     );
         
   # Porta aberta encontrada #         
   if( $Var_FindOpenPort )
   {
      print "[+] Port [$Var_Scanning] is open. \n";
   }
   
}

# Finalizando script #
print "\nScanning...DONE. \n";
exit;

#__END_MAIN__
#--------------------------------------------------------------------------------------------------------

Scripts recomendados

Servidor remoto de ps aux

Obter Nome e IP do Host

CRIAR CBQ

R4tz - Portscan basicão

Web Fuzzer em Perl


  

Comentários

Nenhum comentário foi encontrado.


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts